Спасибо, я разобрался. Всё оказалось оч просто
foreach (@ar_allmail) {
#Host 217-106-130-206.siberianet.ru (217.106.130.206) appears to be up.
($host, $domen, $ip, $a, $b, $c, $d) = split;
if ($host eq \'#\') {next;}
($ip2)=$ip=~/\\((\\d+\\.\\d+\\.\\d+\\.\\d+)\\)/;
print "
$ip2";
}